home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
ivb92b.zip
/
TESTSORT.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-09-23
|
2KB
|
50 lines
Form1
Test sorted list box
Form1
List1
Label1
Search item:
Text1
Command1
Search
Command2
Label2
Search results:
Text2
Form_Click
list1
List1_Click
BinarySearch
Search
ListBox
First
NbrRecs
ListCount
Found
CurrentLowItemNbr
CurrentHiItemNbr
CurrentLoItemNbr
CurrentMidItemNbrE
LoNbrR
HiNbri
LoItemNbr
HiItemNbr
MidNbr
LineNbr
Command1_Click
Text1
Text2
@ Form_Load
Command2_Click
BinarySearch
Item not found yet
Search the low portion of the list
Search the high portion of the list
Found it
Return record number
Return success code'
Command1_Click
Not Found"
Form_Load
Command2_Click